#-------------------------------------------------------------------------------
#
# Electoral predictors - fit minority face model
#
# Author: Sina Chen
#
#-------------------------------------------------------------------------------


# Libraries ---------------------------------------------------------------

{
  library(tidyverse)
  library(rstan)
  rstan_options(auto_write = TRUE)
  options(mc.cores = parallel::detectCores())
}


# Data --------------------------------------------------------------------

polls <- readRDS("data/us_senate_polls1990_2022_final.RDS")


# Preparation -------------------------------------------------------------

polls <- polls %>%
  filter(dte < 101) %>%                               # exclude polls conducted more than 100 days before election day
  group_by(state, cycle) %>%                          # compute election groups  
  mutate(n_poll = n()) %>% 
  ungroup() %>% 
  filter(n_poll >= 5) %>%                             # exclude elections with less than 5 polls  
  mutate(state_year = paste0(state, cycle),
         cycle = as.integer(cycle),
         state_year_int = as.integer(as.factor(state_year)),
         t_sc = as.numeric(dte)/max(as.numeric(dte)), # scale days to election 0-1
         minority_face_dem = if_else(face_white_dem == 1, 1, 0),
         minority_face_rep = if_else(face_white_rep == 1, 1, 0))

# election-level data 
vote_sy <- polls %>%
  group_by(state_year, cycle,  state, vote2_rep, minority_face_dem, 
           minority_face_rep) %>%
  summarise() %>%
  ungroup()

# Stan data 
stan_dat <- list(
  N = nrow(polls),                         # number of polls
  SY = length(unique(polls$state_year)),   # number of elections

  poll = polls$pct2_rep,                   # two-party poll share
  vote = vote_sy$vote2_rep,                # two-party vote share
  
  feature_dem = vote_sy$minority_face_dem, # election-level feature Dem.
  feature_rep = vote_sy$minority_face_rep, # election-level feature Rep.
  t = polls$t_sc,                          # scaled days to election
  
  sample_size = polls$sample_size * 
    (polls$vote_rep + polls$vote_dem),     # sample size adjusted for Rep. & Dem. poll share
  
  sy_id = polls$state_year_int             # election id
)

# check Stan data
sapply(stan_dat, length)
sapply(stan_dat, range)


# Fit Stan model ----------------------------------------------------------

resStan <- stan(file = "code/fit_stan/stan_ml/ml_senate_bias_context_cat2.stan", 
                data = stan_dat,
                chains = 4, iter = 5000,
                control = list(adapt_delta = 0.95, max_treedepth = 12)
) 

# save simulation results
saveRDS(resStan, 'code/fit_stan/resStan_us_senate_context1990_2022_minority_face.RDS') 
